#dictionary 
dict_prinzip<-dictionary(list(
  prinzip=list(
    public_sphere=c("Meinungsfreiheit*","Meinungsäusserungsfreiheit*","Meinungsäußerungsfreiheit*",
                    "freie* Meinungsäusserung*", "freie* Meinungsäußerung",
                    "Versammlungsfreiheit*","Demonstrationsrecht*","Demonstrationsfreiheit*",
                    "Pressefreiheit*", "Preßefreiheit*", "Medienfreiheit*", "Medienpluralismus",
                     "Medienvielfalt","Pressevielfalt", "freie* Medien*","Vielfalt von Zeitungen", "freie* Presse", 
                    "freie Preße", "Medienunabhängigkeit", 
                    "kein* Zensur*", "journalist* Freiheit*", 
                    "Lügenpress*", "fake news","Kontrolle von Medien",
                    "Einheitspress*", "Einheitspreß*", "Staatsmedien*", "Medienkontroll*", "maulkorb",
                     "Zensur*", "kontrolliert* Medien","Zeitungszensur", "Pressezensur", "Preßezensur",
                    "gleichgesinnt* Medien", "genehm* Medien", "freundlich* Medien", 
                     "rotfunk", "rot-funk", "orf?zwangsgebühr*", "srf?zwangsgebühr*",
                     "Propagandasender", "Propagandamedien*", 
                    "objektiv* medien*", "objektiv* berichterstatt*","neutral* Berichterstatt*",
                    "unabhängig* Berichterstatt*","ausgewogen* berichterstatt*",
                    "Meinungsmache","f?lschlich zitiert","gez","rundfunkbeitrag","zwangsgebühren",
                    #"Propagandazweck*","propagandistisch*",
                    "Öffentlichkeit","mediale* Eliten"),
    ind_liberties=c("EMRK", "EGMR",  "Völkerrecht","V*lkerrecht",
                    "Europäisch* Menschenrechtskonvention", "Europäisch* Menschenrechtsgerichtshof", 
                    "individuel* Freiheit*", "Freiheitsrecht*","Grundrecht*", "Menschenrecht*","Freiheiten",
                    "Eigentumsrecht*","Bewegungsfreiheit*",
                    "physisch* Unversehrtheit*", "Verbot von Folter","Folterverbot","Verbot der Folter","Schutz vor Gewalt",
                    "Minderheitsrecht*", "Diskrimierungsverbot*","Religionsfreiheit*","Schutz der Rechte",
                    "Würde des Menschen","Menschenwürde",
                    #"politisch* korrekt*", "Enteignung", 
                    "freie Religionsausübung"),
    rule_of_law=c("Rechtsstaat*", "Unabhängigkeit * Justiz", "unabhängig* Richter*", "unabhängig* Gericht*", 
                  "Gleicheit * Gesetz", "Richterstaat*",
                  "Justizfilz*","kontrolliert* Justiz", 
                  "gelenkt* Justiz", "abgehoben* Richter*", "Richterfilz"),
    constraints=c("Gewaltentrennung", "Gewaltenteilung","Kontrollorgan*","Kontrollrecht*","Parlamentarismus", "Verfassungsgerichtbarkeit", "Verstoss Verfassung",
                  "Verstoß Verfassung","Verstoss Grundgesetz", "Verstoß Grundgesetz",
                  "Verfassungsverstoss", "verfassungsverstoß", "Regierungskontroll*", "verfassungswidrig*",
                  "Verfassungsgrundlage",
                  "Parlamentskontroll*", "grundgesetzwidrig*","verfassungsmäßig*","verfassungsgemäß*",
                  "verfassungsrechtlich*","Grundgesetz verst*ss","Verfassung verst*ss"),
    transparency=c("Transparenz", "Offenlegungspflicht","bestechlich*",  
                    "transparent*", "Parteifinanzierung offen*", "offen* Parteifinanzierung",
                    "Parteienfinanzierung","Parteifinanzierung",
                   "Parteikassen", "Parteispenden", "Korrupt*", "hinter verschlossenen T*ren","Filz",
                   #"Korruptionsprävention", "Korruptionsbekämpfung","bekämpf* Korrupt*", "Bekämpf* Korrupt*",
                   "Politikfinanzierung", "freunderlwirtschaft", "vetternwirtschaft", "vetterleswirtschaft", "Amtsmissbrauch", 
                   "günstlingswirtschaft","Parteifinanz*","Parteienfinanz*"),
    representation=c("Repräsent*", "Volksvertret*", "Minderheitenvertret*","Volkswille*","Mehrheitsvertret*","Mehrheitsprinzip","Volksmehrheit"),
    participation=c("volk fragen", "volk abstimmen", "volk befragen","Volksrecht*","Volksentscheid",
                    "direkt* demokr*", "direktdemokr*", "Volksinitiative",
                    "Volksbegehren*", "Referendum*", "Volksabstimmung*", "Volksbefragung*","Petition*", "Bürgerinitiative","Volkswille*", "jede Stimme zählt", "jede Stimme z*hlt",
                    "Bürgerbeteil*","selbstverwalt*", "Wahlbeteiligung*", "Bürgerbeteiligung*", 
                    "Mitbestimmung","Mitspracherecht", "bürgern * stimme", "politische Beteiligung", "sich an politischen Prozessen * beteiligen"),
    competition=c("freie* wahl*", "fair* wahl*", "fair wettbewerb*", "politisch* wettbewerb", "Parteienwettbewerb", "Wahlrecht*",
                  "fair* Konkurrenzkampf", "fair* Wahlkampf",  # if we have this, should we also have negative campaigning words?
                  "souveränität des volkes", "volkssouverän*",
                  "Ideenwettbewerb*","Wettbewerb der Ideen"),
    demokratie=c( "demokrat*","*demokratie")
  )))



# altparteien bürgernähe 
# verfassungsfeinde, verfassungsschützer, verfassungsbrüche, verfassungstreue, verfassungsnorm, ...
dict_inst<-dictionary(list(
  inst=list(
    media=c( "öffentlich* Rundfunk*","Medien", "Presse","Zeitung*","Journalist*","Berichterstatt*","öffentlich?rechtlich*","ORF","SRF","ARD","ZDF","service public"),
    judic=c("*Gericht*", "Justiz*","Richter*",
            "Rechtsstaat*","Gewaltenteilung*","Gewaltentrennung*","verfassungsrecht*",
            "Grundgesetz*","EMRK", "Europäisch* Menschenrechtskommission*"),
    exek=c( "Regierung*", "Präsident*","Regierungsdekret*","Regierungserl?ss","Kanzler*","Bundeskanzler*","Bundesr?t*","Minister","Ministerin*","Bundesminister","Bundesministerin"),
    represent=c( "Partei*", "Parlament*","Abgeordnet*","Volksvertret*","Bundesrat","Nationalrat","Bundestag","Ständerat"),
    dir_dem=c("direkt* Demokrat*","Volksabstimmung*","Referendum*","Volksbegehren"),
    behoerden=c("Verwaltung*", "Administration*", "Bundesverwaltung*",
                "Behörde*","BÃ¼rokrat*","Ministerium*", "Bundesamt*", "Departement", "Zentralbank*", "Nationalbank*","Bundesministerium"),
    zivil=c( "Nichtregierungsorganisation*","Verein","Verband","Zivilgesellschaft","NGOs","dritte? Sektor","Interessensverb?nd*","Gewerkschaft*"),
    protest=c("Demonstration*","Protest*","soziale Bewegung")
  )))

